unit TVGidsNLProgramma_Unit;

interface

uses DateUtils, SysUtils;

type
  TTVGidsNLProgramma = class(TObject)
  private
    { Private declarations }
    genre: String;
    naam: String;
    begintijd: String;
    eindtijd: String;
    id: String;
    zender: String;
    beginTijdDagCorrectie: Boolean;
    eindTijdDagCorrectie: Boolean;
    uitstelTijd: TDateTime;
  public
    { Public declarations }
    procedure uitstellen(aantalMinuten: Integer);
    property var_genre: String read genre write genre;
    property var_naam: String read naam write naam;
    property var_begintijd: String read begintijd write begintijd;
    property var_eindtijd: String read eindtijd write eindtijd;
    property var_id: String read id write id;
    property var_zender: String read zender write zender;
    property var_beginTijdDagCorrectie: Boolean read beginTijdDagCorrectie write beginTijdDagCorrectie;
    property var_eindTijdDagCorrectie: Boolean read eindTijdDagCorrectie write eindTijdDagCorrectie;
    property var_uitstelTijd: TDateTime read uitstelTijd write uitstelTijd;
    procedure AfterConstruction; override;
  end;

implementation

  {
    * uitstellen
  }
  procedure TTVGidsNLProgramma.uitstellen(aantalMinuten: Integer);
  begin

    //suspendTijd op nu + aantalMinuten instellen
    uitstelTijd := IncMinute(Now(), aantalMinuten);
  end;

  {
    * AfterConstruction
  }
  procedure TTVGidsNLProgramma.AfterConstruction;
  begin

    //uitstelTijd instellen op dit moment (hierdoor wordt er niets uitgesteld
    uitstelTijd := Now();
  end;
end.
